home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / util / wb / StartMenu.lha / Startmenu / Startmenu.install next >
Text File  |  2002-05-01  |  5KB  |  165 lines

  1. ; $VER: Startmenu V1.1 Installer
  2. ; Script to install MRE Startmenu
  3. (complete 0)
  4.  
  5. (set #welcome
  6.  (cat "\nWelcome to MRE !!\n\n"
  7.       "This script will install the MRE Startmenu on your harddisk.\n\n"
  8.       "Please close all running MRE modules.\n\n"
  9.       "\nRemember that MRE needs at least OS3.5 and runs best with OS3.9.\n\n"
  10. ))
  11. (set #MRE-query-text
  12.  (cat "Where do you want to install the MRE drawer ?"
  13. ))
  14.  
  15. (set #MRE-query-help
  16.  (cat "\nYou have now to choose a directory where "
  17.       "you want to install the MRE drawer.\n"
  18.       "The new directory is created automatically, so you only have to "
  19.       "specify the parent dir.\n\n"
  20.       "Almost every file will be copied to this directory and subdirectories. "
  21.       "Preference programs are always stored in SYS:Prefs, "
  22.       "manuals copied to HELP:, settings to ENVARC:"
  23. ))
  24. (set #conf
  25.  (cat "\n\nDo you want to install the standard config file on your system ?\n"
  26.       "If this is your first installation, I recommend to install it.\n"
  27.       "If you want to activate new features, start the related preference program.\n"
  28. ))
  29. (set #conf-help
  30.  (cat "\nThe installer wants to know if it is needed to "
  31.       "install the standard config file.\n\n"
  32.       "If you have a config file already installed "
  33.       "just select the NO button\nto keep your own config."
  34. ))
  35. (set #wbstartup
  36.  (cat "\n\nDo you want to run the Startmenu automatically on startup ?\n"
  37. ))
  38. (set #wbstartup-help
  39.  (cat "\nThe startmenu will be copied to the drawer SYS:WBStartup "
  40.       "if you agree to this question. This means that the program "
  41.       "is loaded each time your system starts. So it can give direct "
  42.       "access to your programs and windows.\n"
  43.       "You should be sure that the startmenu will work correct on your system !"
  44. ))
  45. (set #startprefs
  46.  (cat "\nNow the prefs program will be started.\n"
  47.       "\nPlease look at the settings and save your changes.\n"
  48.       "\n(The prefs program must be started to adjust your settings. "
  49.       "Some options may have changed or new ones may have been added, so "
  50.       "the program will need new instructions. You don't have to change "
  51.       "anything, you can also have a short look at the settings and "
  52.       "click on Save.)\n"
  53. ))
  54. (set #showreadme
  55.  (cat "\n\nDo you want to view the readme file ?"
  56. ))
  57. (set #showreadme-help
  58.  (cat "\nThe readme file contains information about the changes since the "
  59.       "last version. If you want have an overview without reading the whole manual, "
  60.       "say yes to this question"
  61. ))
  62. (set #bye
  63.  (cat "\nInstallation is complete.\n\n"
  64.       "If you want to use an other than the English language, look for an MRE catalog archive "
  65.       "for your language. This will replace all language dependant files.\n"
  66.       "If you want to make a catalog archive for your language, contact me at "
  67.       "email@martin-elsner.de and I'll send you all information and tell you "
  68.       "if somebody is already working on the translation.\n"
  69.       "Changes to the last version are documented in the readme file.\n\n"
  70.       "          And now enjoy MRE!"
  71. ))
  72.  
  73.  
  74. ;********************************************************************
  75.  
  76. (message #welcome)
  77.  
  78. (if(not(exists "MRE:" (noreq)))
  79.  (
  80.   (set thedir (askdir (prompt #MRE-query-text) (help #MRE-query-help) (default "Sys:")))
  81.   (set @default-dest (tackon thedir "MRE"))
  82.   (makedir @default-dest (infos))
  83.   (makeassign "MRE" @default-dest)
  84.   (startup "MRE" (prompt "")(help "")(command (cat "assign MRE: " @default-dest)))
  85.  )(
  86.   (set @default-dest "MRE:")
  87.  )
  88. )
  89.  
  90. (complete 10)
  91.  
  92. ; copy all the MRE: stuff
  93.  
  94. (copyfiles (source "MRE")(dest @default-dest)(all) )
  95.  
  96. (complete 50)
  97.  
  98. ; copy preference programs (and what else ?)
  99.  
  100. (if(exists "SYS")
  101.  (copyfiles(source "Sys")(dest "SYS:")(prompt "")(infos)(all))
  102. )
  103.  
  104. (complete 60)
  105.  
  106. ; copy setting files
  107.  
  108. (if(exists "ENVARC")
  109.  (if(askbool (prompt #conf) (help #conf-help) )
  110.   (
  111.    (copyfiles(source "ENVARC")(dest "ENVARC:")(prompt "")(all))
  112.    (copyfiles(source "ENVARC")(dest "ENV:")(prompt "")(all))
  113.   )
  114.  )
  115. )
  116.  
  117. (complete 70)
  118.  
  119. ; copy manuals
  120.  
  121. (if(exists "HELP")
  122.  (copyfiles(source "HELP")(dest "HELP:")(prompt "")(all))
  123. )
  124.  
  125. (complete 80)
  126.  
  127. ; copy libraries
  128.  
  129. (if(exists "LIBS")
  130.  (if(not(exists "libs:popupmenu.library"))
  131.   (copyfiles(source "libs/popupmenu.library")(dest "libs:")(prompt ""))
  132.  )
  133. )
  134.  
  135. (complete 90)
  136.  
  137. ; copy wbstartup icon
  138.  
  139. (if(exists "WBStartup/Startmenu.info")
  140.  (if(askbool (prompt #wbstartup) (help #wbstartup-help) )
  141.   (copyfiles(source "WBStartup")(dest "SYS:WBStartup")(prompt "")(all))
  142.  )
  143. )
  144.  
  145. ; start preference program
  146.  
  147. (message #startprefs)
  148.  
  149. (run "sys:prefs/startmenuprefs")
  150.  
  151. (complete 100)
  152.  
  153. (if (askbool (prompt #showreadme) (help #showreadme-help))(
  154.   (showmedia "readme" "startmenu.readme" "center" "none" 1)
  155.  )
  156. )
  157.  
  158. ; and now some final words
  159.  
  160. (message #bye)
  161.  
  162.  
  163. (exit)
  164.  
  165.